home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / DMOD0012.SRP < prev    next >
Text File  |  1996-06-04  |  4KB  |  212 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem direct connect script (8/10/95)dmod0012.srp
  3. rem Changes to version 2 include faster disconnect methods
  4. rem and general fine tuning of timeouts!
  5. rem dacom gold card V34
  6.  
  7. label InitDevice
  8. echo off
  9. flush
  10. echo script[56]  
  11. send "atchar(13)"  
  12. timeout 2,modem_fail
  13. find    "OK"
  14.  
  15. label OffToGate
  16. rem Offline to Gate (also contains Pad to Gate)
  17. echo off
  18. flush
  19. echo script[57]
  20. send    "at{InitModemStr}char(13)"
  21. timeout 2,modem_fail
  22. find    "OK"
  23. send    "at+ms=9,0,9600,9600char(13)"
  24. timeout 2,modem_fail
  25. find    "OK"
  26. send   "atd{DialMode}^{PreTel}{SiteTel}{PostFix}char(13)"
  27. echo script[52]...
  28. timeout {DialTimeout},connect_fail
  29. finderr 0,BUSY,busy                            
  30. finderr 103,NO DIALTONE,connect_fail
  31. finderr 0,NO CARRIER,no_carrier  
  32. find "CONNECT"
  33. echo script[53] 
  34. send "char(13)"   
  35. timeout 2,Bad_PadPrompt
  36. finderr 0,PAD>,Good_PadPrompt
  37. find "ZZZ"
  38. label Bad_PadPrompt
  39. echo script[58]
  40. send "char(13)"
  41. timeout 2,pad_fail
  42. find "PAD>"
  43. label Good_PadPrompt
  44. label PadToGate
  45. echo off
  46. send    "SER{SUB}char(13)"
  47. timeout 2,nua_bad1
  48. finderr 0,COM,nua_good
  49. find    "ZZZ"
  50. label nua_bad1
  51. send    "SER{SUB}char(13)"
  52. timeout 2,nua_bad2
  53. finderr 0,COM,nua_good
  54. find    "ZZZ"
  55. label nua_bad2
  56. send    "SER{SUB}char(13)"
  57. timeout 2,nua_fail
  58. find    "COM"
  59. label nua_good
  60. echo script[54].
  61. end
  62.  
  63. label GateToPad
  64. echo off
  65. send    "char(16)CLRchar(13)"
  66. timeout 2,ctrl_p_clear_fail
  67. find    "CONF"
  68. echo script[91]...
  69. end
  70.  
  71. label GateToOff
  72. label PadToOff
  73. echo off
  74. send   "+"
  75. mwait 100
  76. send   "+"
  77. mwait 100
  78. send   "+"
  79. timeout 2,hang_fail_retry
  80. find    "OK"
  81. echo script[97]
  82. send   "at{TermModemStr}char(13)"
  83. rem The following arises as a result of the inability
  84. rem of the gold card to disconnect cleanly when talking 
  85. rem to the PSL over MNP4.
  86. wait 1
  87. send "a"
  88. timeout 1,no_ok
  89. finderr 0,OK,good_ok
  90. find    "zz"
  91. label good_ok
  92. echo script[99].
  93. end
  94.  
  95. label modem_offline
  96. echo off
  97. send   "+"
  98. mwait 100
  99. send   "+"
  100. mwait 100
  101. send   "+"
  102. timeout 2,hang_fail_retry
  103. find    "OK"
  104. echo script[97]
  105. send   "at{TermModemStr}char(13)"
  106. rem The following arises as a result of the inability
  107. rem of the gold card to disconnect cleanly when talking 
  108. rem to the PSL over MNP4.
  109. wait 1
  110. send "a"
  111. timeout 1,fno_ok
  112. finderr 0,OK,fgood_ok
  113. find    "zz"
  114. label fgood_ok
  115. echo script[99].
  116. abort
  117.  
  118. label fno_ok
  119. wait 1
  120. send "a"
  121. timeout 1,fno_ok_2
  122. finderr 0,OK,fgood_ok
  123. finderr 0,NO CARRIER,fgood_ok
  124. find "zz"
  125. abort
  126.  
  127. label fno_ok_2
  128. wait 1
  129. send "a"
  130. timeout 1,fno_ok_3
  131. finderr 0,OK,fgood_ok
  132. finderr 0,NO CARRIER,fgood_ok
  133. find "zz"
  134. abort
  135.  
  136. label fno_ok_3
  137. wait 1
  138. send "a"
  139. timeout 1,hang_fail
  140. finderr 0,OK,fgood,ok
  141. finderr 0,NO CARRIER,fgood_ok
  142. find "zz"
  143. abort
  144.  
  145. label no_ok
  146. wait 1
  147. send "a"
  148. timeout 1,no_ok_2
  149. finderr 0,OK,good_ok
  150. finderr 0,NO CARRIER,good_ok
  151. find "zz"
  152. abort
  153.  
  154. label no_ok_2
  155. wait 1
  156. send "a"
  157. timeout 1,no_ok_3
  158. finderr 0,OK,good_ok
  159. finderr 0,NO CARRIER,good_ok
  160. find "zz"
  161. abort
  162.  
  163. label no_ok_3
  164. wait 1
  165. send "a"
  166. timeout 1,hang_fail
  167. finderr 0,OK,good,ok
  168. finderr 0,NO CARRIER,good_ok
  169. find "zz"
  170. abort
  171.  
  172. label hang_fail_retry
  173. send   "at{TermModemStr}char(13)" 
  174. timeout 2,hang_fail
  175. finderr 0,NO CARRIER,fgood_ok
  176. find    "OK"
  177. echo script[99].
  178. abort
  179.  
  180. label hang_fail
  181. echo script[98].
  182. abort
  183.  
  184. label modem_fail
  185. echo script[23]
  186. goto modem_offline
  187.  
  188. label connect_fail
  189. echo script[1]
  190. goto modem_offline
  191.  
  192. label busy
  193. echo script[2]
  194. goto modem_offline
  195.  
  196. label no_carrier
  197. echo script[3]
  198. goto modem_offline
  199.  
  200. label nua_fail
  201. echo script[22]
  202. goto modem_offline
  203.  
  204. label ctrl_p_clear_fail
  205. echo script[14]
  206. goto modem_offline
  207.  
  208. label command_mode_fail
  209. echo script[15]
  210. goto modem_offline
  211.  
  212.